home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / netz / geturl / geturl.amirx next >
Text File  |  1996-06-28  |  2KB  |  59 lines
  1. /*
  2. GetURL.AmIRX V1.0, 28.6.96
  3.  
  4. Author: Markus 'lammy' Lamers
  5. E-Mail: markus.lamers@tu-clausthal.de
  6. WWW   : http://home.pages.de/~lammy/ or http://hahn.heim1.tu-clausthal.de/
  7. S-Mail: Osteröder Str.6, 38678 Clausthal-Zellerfeld
  8.  
  9. Purpose  : This script gives the currently loaded URL of your WWW-Browser into
  10.            the active window of AmIRC
  11. Supported: IBrowse (>Version R7a) and AWeb.
  12. Install  : Just copy the script to amirc/rexx/ and use with /rx geturl
  13.            You may like to define a button for it, or put it on a functionkey.
  14.            Please have a look at the documentation of AmIRC if you do not know
  15.            how this works.
  16.  
  17. Usage    : /rx geturl [<nick1>[,<nick2>...]]
  18.            If you provide a nick she gets the response as a /msg, else the
  19.            response will be sent to the active channel window.
  20.            I recomment to make an alias eg. "/alias geturl /rx geturl %p".
  21.  
  22. Thanks to: Dominic 'd0m' Wäsch for his debugging help (have also a look at his
  23.            domskript, its worth ;)
  24.  
  25. Please send me a mail if you use this script.
  26.  
  27. */
  28.  
  29. options results
  30. parse arg name
  31.  
  32. if show('P','IBROWSE') then do
  33.         address 'IBROWSE'
  34.         'QUERY URL'
  35.         url = result
  36.         ToAmIRC()
  37.         Exit
  38. end
  39.  
  40. if show('P','AWEB.1') then do
  41.         address 'AWEB.1'
  42.         'GET URL'
  43.         url = result
  44.         ToAmIRC()
  45.         Exit
  46. end
  47.  
  48. 'echo You must start your WWW-Browser first ;)'
  49.  
  50. ToAmIRC:
  51.    address 'AMIRC.1'
  52.    IF name == "" THEN
  53.      'SAY ' url
  54.    IF name ~= "" THEN
  55.      'SAY /MSG 'name url
  56. EXIT
  57.  
  58. EXIT 10
  59.